home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh27c.d64 / makro merge-file (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  6KB  |  349 lines
  1. 60000 ;*********************************
  2. 60010 ;*                               *
  3. 60020 ;*   GRAFIK-MAKROS MERGE FILE    *
  4. 60030 ;*   ------------------------    *
  5. 60040 ;*           ZU DEN              *
  6. 60050 ;*   GIGA-ASS GRAFIK-ROUTINEN    *
  7. 60060 ;*                               *
  8. 60070 ;*********************************
  9. 60080 ;
  10. 60090 ;---------------------------------
  11. 60100 ; DIESES FILE IST EINEM GIGA-ASS
  12. 60110 ; QUELLTEXT, DER AUF DIE GRAFIK-
  13. 60120 ; ROUTINEN ZUGREIFT, MIT DEM "M"-
  14. 60130 ; BEFEHL ANZUHAENGEN.
  15. 60140 ;
  16. 60150 ; DEN MAKROS MUSS UEBER DIE BASIS
  17. 60160 ; ADRESSE "BA" MITGETEILT WERDEN,
  18. 60170 ; AN WELCHER STELLE IM SPEICHER
  19. 60180 ; DIE GRAFIK-ROUTINEN LIEGEN.
  20. 60190 ;
  21. 60200 ; DIE MAKROS SELBST GREIFEN NUR
  22. 60210 ; UEBER DIE DIE GRAFIK-ROUTINEN
  23. 60220 ; EINLEITENDE JUMP-TABLE AUF DIE
  24. 60230 ; ROUTINEN ZU.
  25. 60240 ;
  26. 60250 ;---------------------------------
  27. 60260 ;
  28. 60270 ;
  29. 60280 ;---------------------------------
  30. 60290 ;
  31. 60300 ; ZU JEDER GRAFIK-ROUTINE MIT
  32. 60310 ; PARAMETERN GIBT ES ZWEI MAKROS:
  33. 60320 ;
  34. 60330 ; A) EIN MAKRO, DER ALS PARAMETER
  35. 60340 ;    DIE AKTUELLEN PARAMETER
  36. 60350 ;    SELBST ALS WERT-PARAMETER
  37. 60360 ;    ERHAELT
  38. 60370 ;    ("CALL BY VALUE")
  39. 60380 ;
  40. 60390 ; B) EIN MAKRO, DER ALS PARAMETER
  41. 60400 ;    DIEJENIGEN ADRESSEN MITGE-
  42. 60410 ;    TEILT BEKOMMT, AN DENEN DIE
  43. 60420 ;    AKTUELLEN PARAMETER STEHEN
  44. 60430 ;    ("CALL BY REFERENCE")
  45. 60440 ;
  46. 60450 ; MAKROS VOM TYP B) UNTERSCHEIDEN
  47. 60460 ; SICH VON DENJENIGEN VOM TYP A)
  48. 60470 ; DURCH EIN ANGEHAENGTES "I"
  49. 60480 ; (Z.B. LINEI, FRAMEI, CIRCLEI),
  50. 60490 ; WELCHES FUER "INDIREKTE"
  51. 60500 ; PARAMETER-ANGABE STEHT.
  52. 60510 ;
  53. 60520 ;---------------------------------
  54. 60530 ;
  55. 60540 TAB(BA=$C000
  56. 60550 ;
  57. 60560 ;=================================
  58. 60570 ; GRAFIK-ROUTINEN UEBERGREIFENDE
  59. 60580 ; MAKROS
  60. 60590 ;=================================
  61. 60600 ;
  62. 60610 GETSPACEWAIT
  63. 60620  MID$203
  64. 60630  STR$#$3C
  65. 60640  (null)*-4
  66. 60650  MID$203
  67. 60660  STR$#$3C
  68. 60670  (null)*-4
  69. 60680 NEW
  70. 60690 GETBORDERCLOSECOLOR
  71. 60700  MID$#COLOR
  72. 60710  (null)$D020
  73. 60720 NEW
  74. 60730 GETBACKGROUNDCLOSECOLOR
  75. 60740  MID$#COLOR
  76. 60750  (null)$D021
  77. 60760 NEW
  78. 60770 GETINTERRUPT_ON
  79. 60780  MID$#$81
  80. 60790  (null)$DC0D
  81. 60800 NEW
  82. 60810 GETLCVCLOSEXCVAL,YCVAL
  83. 60820  MID$#<(XCVAL)
  84. 60830  PEEK#>(XCVAL)
  85. 60840  LEN#YCVAL
  86. 60850 NEW
  87. 60860 GETLCICLOSEXCADR,YCADR
  88. 60870  MID$XCADR
  89. 60880  PEEKXCADR+1
  90. 60890  LENYCADR
  91. 60900 NEW
  92. 60910 GETMCVCLOSEXCVAL,YCVAL,ADR
  93. 60920  LCVCLOSEXCVAL,YCVAL
  94. 60930  (null)ADR
  95. 60940  (null)ADR+1
  96. 60950  (null)ADR+2
  97. 60960 NEW
  98. 60970 GETMCICLOSEXCADR,YCADR,ADR
  99. 60980  MID$XCADR
  100. 60990  PEEKXCADR+1
  101. 61000  LENYCADR
  102. 61010  (null)ADR
  103. 61020  (null)ADR+1
  104. 61030  (null)ADR+2
  105. 61040 NEW
  106. 61050 ;
  107. 61060 ;
  108. 61070 ;=================================
  109. 61080 ; MAKROS ZUM AUFRUF DER
  110. 61090 ; GRAFIK-ROUTINEN
  111. 61100 ;=================================
  112. 61110 ;
  113. 61120 GETPAGECLOSEVAL
  114. 61130  PEEK#VAL
  115. 61140  (null)BA+$00
  116. 61150 NEW
  117. 61160 GETPAGEICLOSEADR
  118. 61170  PEEKADR
  119. 61180  (null)BA+$00
  120. 61190 NEW
  121. 61200 GETDESIGNCLOSEVAL
  122. 61210  PEEK#VAL
  123. 61220  (null)BA+$03
  124. 61230 NEW
  125. 61240 GETDESIGNICLOSEADR
  126. 61250  PEEKADR
  127. 61260  (null)BA+$03
  128. 61270 NEW
  129. 61280 GETOFF
  130. 61290  (null)BA+$06
  131. 61300 NEW
  132. 61310 GETINV
  133. 61320  (null)BA+$09
  134. 61330  INTERRUPT_ON
  135. 61340 NEW
  136. 61350 GETCLEAR
  137. 61360  (null)BA+$0C
  138. 61370 NEW
  139. 61380 GETCOLORCLOSEVAL
  140. 61390  MID$#VAL
  141. 61400  (null)BA+$0F
  142. 61410 NEW
  143. 61420 GETCOLORICLOSEADR
  144. 61430  MID$ADR
  145. 61440  (null)BA+$0F
  146. 61450 NEW
  147. 61460 GETSETCOLCLOSELNVAL,CLVAL,COVAL
  148. 61470  MID$#LNVAL
  149. 61480  PEEK#CLVAL
  150. 61490  LEN#COVAL
  151. 61500  (null)BA+$12
  152. 61510 NEW
  153. 61520 GETSETCOLICLOSELNADR,CLADR,COADR
  154. 61530  MID$LNADR
  155. 61540  PEEKCLADR
  156. 61550  LENCOADR
  157. 61560  (null)BA+$12
  158. 61570 NEW
  159. 61580 ;---------------------------------
  160. 61590 ; EINZELPUNKT MAKROS
  161. 61600 ;---------------------------------
  162. 61610 GETCLEARDOTCLOSEXCVAL,YCVAL
  163. 61620  LCVCLOSEXCVAL,YCVAL
  164. 61630  (null)BA+$15
  165. 61640  INTERRUPT_ON
  166. 61650 NEW
  167. 61660 GETCLEARDOTICLOSEXCADR,YCADR
  168. 61670  LCICLOSEXCADR,YCADR
  169. 61680  (null)BA+$15
  170. 61690  INTERRUPT_ON
  171. 61700 NEW
  172. 61710 GETSETCLOSEXCVAL,YCVAL
  173. 61720  LCVCLOSEXCVAL,YCVAL
  174. 61730  (null)BA+$18
  175. 61740  INTERRUPT_ON
  176. 61750 NEW
  177. 61760 GETSETICLOSEXCADR,YCADR
  178. 61770  LCICLOSEXCADR,YCADR
  179. 61780  (null)BA+$18
  180. 61790  INTERRUPT_ON
  181. 61800 NEW
  182. 61810 GETTESTCLOSEXCVAL,YCVAL
  183. 61820  LCVCLOSEXCVAL,YCVAL
  184. 61830  (null)BA+$1B
  185. 61840  INTERRUPT_ON
  186. 61850 NEW
  187. 61860 GETTESTICLOSEXCADR,YCADR
  188. 61870  LCICLOSEXCADR,YCADR
  189. 61880  (null)BA+$1B
  190. 61890  INTERRUPT_ON
  191. 61900 NEW
  192. 61910 GETACCESSCLOSEXCVAL,YCVAL
  193. 61920  LCVCLOSEXCVAL,YCVAL
  194. 61930  (null)BA+$1E
  195. 61940  INTERRUPT_ON
  196. 61950 NEW
  197. 61960 GETACCESSICLOSEXCADR,YCADR
  198. 61970  LCICLOSEXCADR,YCADR
  199. 61980  (null)BA+$1E
  200. 61990  INTERRUPT_ON
  201. 62000 NEW
  202. 62010 ;---------------------------------
  203. 62020 ; MAKROS FUER MEHRERE PUNKTE
  204. 62030 ;---------------------------------
  205. 62040 GETLINECLOSEX0VAL,Y0VAL,X1VAL,Y1VAL
  206. 62050  MCVCLOSEX0VAL,Y0VAL,BA+$21
  207. 62060  MCVCLOSEX1VAL,Y1VAL,BA+$24
  208. 62070  (null)BA+$27
  209. 62080  INTERRUPT_ON
  210. 62090 NEW
  211. 62100 GETLINEICLOSEX0ADR,Y0ADR,X1ADR,Y1ADR
  212. 62110  MCICLOSEX0ADR,Y0ADR,BA+$21
  213. 62120  MCICLOSEX1ADR,Y1ADR,BA+$24
  214. 62130  (null)BA+$27
  215. 62140  INTERRUPT_ON
  216. 62150 NEW
  217. 62160 GETLINECCLOSEX0VAL,Y0VAL,X1VAL,Y1VALIGA-ASSREADY
  218. 62170  MCVCLOSEX0VAL,Y0VAL,BA+$21
  219. 62180  MCVCLOSEX1VAL,Y1VAL,BA+$24
  220. 62190  (null)BA+$2A
  221. 62200  INTERRUPT_ON
  222. 62210 NEW
  223. 62220 GETLINEICCLOSEX0ADR,Y0ADR,X1ADR,Y1ADR
  224. 62230  MCICLOSEX0ADR,Y0ADR,BA+$21
  225. 62240  MCICLOSEX1ADR,Y1ADR,BA+$24
  226. 62250  (null)BA+$2A
  227. 62260  INTERRUPT_ON
  228. 62270 NEW
  229. 62280 GETFRAMECLOSEX0VAL,Y0VAL,X1VAL,Y1VAL
  230. 62290  MCVCLOSEX0VAL,Y0VAL,BA+$2D
  231. 62300  MCVCLOSEX1VAL,Y1VAL,BA+$30
  232. 62310  (null)BA+$33
  233. 62320  INTERRUPT_ON
  234. 62330 NEW
  235. 62340 GETFRAMEICLOSEX0ADR,Y0ADR,X1ADR,Y1ADR
  236. 62350  MCICLOSEX0ADR,Y0ADR,BA+$2D
  237. 62360  MCICLOSEX1ADR,Y1ADR,BA+$30
  238. 62370  (null)BA+$33
  239. 62380  INTERRUPT_ON
  240. 62390 NEW
  241. 62400 GETCFRAMECLOSEX0VAL,Y0VAL,X1VAL,Y1VAL
  242. 62410  MCVCLOSEX0VAL,Y0VAL,BA+$2D
  243. 62420  MCVCLOSEX1VAL,Y1VAL,BA+$30
  244. 62430  (null)BA+$36
  245. 62440  INTERRUPT_ON
  246. 62450 NEW
  247. 62460 GETCFRAMEICLOSEX0ADR,Y0ADR,X1ADR,Y1ADR
  248. 62470  MCICLOSEX0ADR,Y0ADR,BA+$2D
  249. 62480  MCICLOSEX1ADR,Y1ADR,BA+$30
  250. 62490  (null)BA+$36
  251. 62500  INTERRUPT_ON
  252. 62510 NEW
  253. 62520 GETFILLCLOSEXCVAL,YCVAL
  254. 62530  LCVCLOSEXCVAL,YCVAL
  255. 62540  (null)BA+$39
  256. 62550  INTERRUPT_ON
  257. 62560 NEW
  258. 62570 GETFILLICLOSEXCADR,YCADR
  259. 62580  LCICLOSEXCADR,YCADR
  260. 62590  (null)BA+$39
  261. 62600  INTERRUPT_ON
  262. 62610 NEW
  263. 62620 GETTEXTCLOSEADR,LINE,COLUMN,EXPX,EXPY,CASE,TEXTCOLOR
  264. 62630  MID$#COLUMN
  265. 62640  (null)BA+$3C
  266. 62650  MID$#LINE
  267. 62660  (null)BA+$3D
  268. 62670  MID$#EXPX
  269. 62680  (null)BA+$3E
  270. 62690  MID$#EXPY
  271. 62700  (null)BA+$3F
  272. 62710  MID$#CASE
  273. 62720  (null)BA+$40
  274. 62730  MID$#<(ADR)
  275. 62740  LEN#>(ADR)
  276. 62750  PEEK#TEXTCOLOR
  277. 62760  (null)BA+$41
  278. 62770  INTERRUPT_ON
  279. 62780 NEW
  280. 62790 GETTEXTICLOSEIADR,ILINE,ICOLUMN,IEXPX,IEXPY,ICASE,ITEXTCOLOR
  281. 62800  MID$ICOLUMN
  282. 62810  (null)BA+$3C
  283. 62820  MID$ILINE
  284. 62830  (null)BA+$3D
  285. 62840  MID$IEXPX
  286. 62850  (null)BA+$3E
  287. 62860  MID$IEXPY
  288. 62870  (null)BA+$3F
  289. 62880  MID$ICASE
  290. 62890  (null)BA+$40
  291. 62900  MID$IADR
  292. 62910  LENIADR+1
  293. 62920  PEEKITEXTCOLOR
  294. 62930  (null)BA+$41
  295. 62940  INTERRUPT_ON
  296. 62950 NEW
  297. 62960 GETCIRCLECLOSEXCVAL,YCVAL,RADVAL
  298. 62970  MID$#RADVAL
  299. 62980  (null)BA+$44
  300. 62990  LCVCLOSEXCVAL,YCVAL
  301. 63000  (null)BA+$45
  302. 63010  INTERRUPT_ON
  303. 63020 NEW
  304. 63030 GETCIRCLEICLOSEXCADR,YCADR,RADADR
  305. 63040  MID$RADADR
  306. 63050  (null)BA+$44
  307. 63060  LCICLOSEXCADR,YCADR
  308. 63070  (null)BA+$45
  309. 63080  INTERRUPT_ON
  310. 63090 NEW
  311. 63100 GETCCIRCLECLOSEXCVAL,YCVAL,RADVAL
  312. 63110  MID$#RADVAL
  313. 63120  (null)BA+$44
  314. 63130  LCVCLOSEXCVAL,YCVAL
  315. 63140  (null)BA+$48
  316. 63150  INTERRUPT_ON
  317. 63160 NEW
  318. 63170 GETCCIRCLEICLOSEXCADR,YCADR,RADADR
  319. 63180  MID$RADADR
  320. 63190  (null)BA+$44
  321. 63200  LCICLOSEXCADR,YCADR
  322. 63210  (null)BA+$48
  323. 63220  INTERRUPT_ON
  324. 63230 NEW
  325. 63240 GETLINESCLOSEPOINTER
  326. 63250  MID$#<(POINTER)
  327. 63260  LEN#>(POINTER)
  328. 63270  (null)BA+$4B
  329. 63280  INTERRUPT_ON
  330. 63290 NEW
  331. 63300 GETLINESICLOSEIPOINTER
  332. 63310  MID$IPOINTER
  333. 63320  LENIPOINTER+1
  334. 63330  (null)BA+$4B
  335. 63340  INTERRUPT_ON
  336. 63350 NEW
  337. 63360 GETLINESCCLOSEPOINTER
  338. 63370  MID$#<(POINTER)
  339. 63380  LEN#>(POINTER)
  340. 63390  (null)BA+$4E
  341. 63400  INTERRUPT_ON
  342. 63410 NEW
  343. 63420 GETLINESICCLOSEIPOINTER
  344. 63430  MID$IPOINTER
  345. 63440  LENIPOINTER+1
  346. 63450  (null)BA+$4E
  347. 63460  INTERRUPT_ON
  348. 63470 NEW
  349.